unit Client_ListKC_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

type
  TClient_ListKC_Form = class(TForm)
    scrlbx1: TScrollBox;
    img1: TImage;
    lst_Kc: TListBox;
    lbl_AddKc: TLabel;
    lbl_DelKc: TLabel;
    lbl_xm: TLabel;
    lbl_regdate: TLabel;
    lbl_xh: TLabel;
    lbl_Exit: TLabel;
    procedure lbl_ExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Client_ListKC_Form: TClient_ListKC_Form;

implementation
uses Client_RDataUnit;

{$R *.dfm}

procedure TClient_ListKC_Form.lbl_ExitClick(Sender: TObject);
begin
  Close;
end;

procedure TClient_ListKC_Form.FormCreate(Sender: TObject);
begin
  lbl_xm.Caption := KS_NAME;
  lbl_xh.Caption := KS_NUM;
  lbl_regdate.Caption := DateToStr(Now);
end;

end.
